home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 1 / CU Amiga Magazine CD-ROM Special Edition (1995)(EMAP Images)(GB)[Issue 1995-11].iso / Aminet / misc / math / graph2d240.lha / Graph2DV2.40 / Rexx / SendToMathScript.rexx < prev   
Encoding:
OS/2 REXX Batch file  |  1995-04-29  |  352 b   |  24 lines
  1. /*
  2. ** This script gets the selected function from Graph2D
  3. ** and sends it to MathScript
  4. ** Author: Kai Nickel
  5. */
  6.  
  7. options results
  8.  
  9. ADDRESS 'GRAPH2D.1'
  10.  
  11. GETFUNCTION MS20
  12. fkt = result
  13.  
  14. IF ~SHOW('p',"MATHSCRIPT.1") THEN
  15. DO
  16.   ADDRESS COMMAND "run MathScript:MathScript"
  17.   ADDRESS COMMAND "wait 3"
  18. END
  19.  
  20. ADDRESS "MATHSCRIPT.1"
  21.  
  22. SCREENTOFRONT
  23. SETCONTENTS fkt
  24.